Sub Macro6()
    Range("R2").Select
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    Range("R3").Select
    With Selection.Interior
        .ColorIndex = 4
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    Range("R4").Select
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    Range("R5").Select
    With Selection.Interior
        .ColorIndex = 4
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    Range("R1").Select
End Sub

Sub Macro2()
    Range("R2,R4,R6,R8").Select
    Range("R8").Activate
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    Range("R3,R5,R7,R9").Select
    Range("R9").Activate
    With Selection.Interior
        .ColorIndex = 4
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    Range("R1").Select
End Sub

Sub Macro3()
For i = 2 To 9
   If i Mod 2 = 0 Then
      Cells(i, 18).Interior.ColorIndex = 3
   Else
      Cells(i, 18).Interior.ColorIndex = 4
   End If
Next
End Sub

Sub Macro2()
    Range("R2,R4,R6,R8").Select
    Selection.Interior.ColorIndex = 3
  
    Range("R3,R5,R7,R9").Select
    Selection.Interior.ColorIndex = 4
    Range("R1").Select
End Sub

Sub Macro1()
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "ABCDEF"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "あいうえお"
End Sub

Sub Macro2()
    Range("A1").FormulaR1C1 = "ABCDEF"
    Range("B2").FormulaR1C1 = "あいうえお"
End Sub

Sub Macro1()
   Range("A2").Select
End Sub

Sub Macro1a()
   Cells(2,1).Select
End Sub

Sub Macro2()
    Range("B2:F9").Select
End Sub

Sub Macro2a()
    Range(Cells(2, 2), Cells(9, 6)).Select
End Sub

Sub Macro3()
    Rows("5:5").Select
End Sub

Sub Macro3a()
   Rows(5).Select
End Sub

Sub Macro4()
    Rows("5:7").Select
End Sub

Sub Macro4a()
  Range(Rows(5), Rows(7)).Select
End Sub

Sub Macro5()
    Columns("D:D").Select
End Sub

Sub Macro5a()
    Columns(4).Select
End Sub

Sub Macro6()
    Columns("D:E").Select
End Sub

Sub Macro6a()
   Range(Columns(4), Columns(5)).Select
End Sub

Sub Macro7a()
    Cells.Select
End Sub

●(１)自動記録で("B2")に"5"、("B3")に"10"を入れ("B4")にそのを合計値表示
Sub Macro1()
    Range("B2").Select
      ActiveCell.FormulaR1C1 = "5"
    Range("B3").Select
      ActiveCell.FormulaR1C1 = "10"
    Range("B2:B4").Select
    Range("B4").Activate
      ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
     Range("D6").Select
End Sub

●(２)セルを選択し、そのアクティブセルへFormulaプロパティで入力
Sub Macro1A()
    Range("B2").Select
      ActiveCell.Formula = "5"
    Range("B3").Select
      ActiveCell.Formula = "10"
    Range("B4").Activate
      ActiveCell.Formula = "=SUM(B2:B3)"
End Sub

●(３)セルを選択し、そのアクティブセルへValueプロパティで入力
Sub Macro1B()
    Range("B2").Select
      ActiveCell.Value = "5"
    Range("B3").Select
      ActiveCell.Value = "10"
    Range("B4").Activate
      ActiveCell.Value = "=SUM(B2:B3)"
End Sub

●(４)セルへValueプロパティで入力（A1形式）
Sub Macro1C()
    Range("B2").Value = "5"
    Range("B3").Value = "10"
    Range("B4").Value = "=SUM(B2:B3)"
End Sub

●(５)セルへValueプロパティで入力（Cellsメソッド使用）
Sub Macro1D()
    Cells(2, 2).Value = "5"
    Cells(3, 2).Value = "10"
    Cells(4, 2).Value = "=SUM(B2:B3)"
End Sub

●(６)セルへValueプロパティ省略で入力（Cellsメソッド使用）
Sub Macro1D()
    Cells(2, 2) = "5"
    Cells(3, 2) = "10"
    Cells(4, 2) = "=SUM(B2:B3)"
End Sub

　　d1 = Cells(2, 2).Value
    d2 = Cells(3, 2)

　　d3 = Cells(4, 2).Value
　　d4 = Cells(4, 2).Formula
　　MsgBox "d1:" & d1 & " d2:" & d2 & " d3:" & d3 & " d4:" & d4

’シ−ト全体を対象に実行
Sub Macro1()
    Cells.Replace What:=, Replacement:="xxxx", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Range("B3").Select
End Sub

’Ａ列を対象に実行
Sub Macro2()
    Columns("A:A").Select
    Selection.Replace What:="cccc", Replacement:="xxxx", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Range("A1").Select
End Sub

’Ａ１形式をColumnsメソッドに変えた例
Sub Macro2a()
    Columns(1).Replace What:="cccc", Replacement:="xxxx", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Range("A1").Select
End Sub

Sub Macro1()
  dat = "bbbbb"
    Range("a1").Select
    Selection.AutoFilter Field:="2", Criteria1:=dat
End Sub

Sub Macro1a()
  　dat = "bbbbb"
    Cells(10, 5).Select
    Selection.AutoFilter Field:="2", Criteria1:=dat
    Range("a1").Select
End Sub

Sub Macro1()
'検索デ−タセット
    Cells(2, 5) = "bbbbb"
'抽出実行
    Range("A1:B100").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("E1:E2"),CopyToRange:=Range("E5:F6")
End Sub

Sub Macro1a()
'検索デ−タセット
    Cells(2, 5) = "bbbbb"
'抽出実行
    Range(Cells(1, 1), Cells(cellend, 2)).AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("E1:E2"),CopyToRange:=Range("E5:F6")
End Sub

    Cells(2, 2).Value = "5"
    Cells(3, 2).Value = "10"
    Cells(4, 2).Value = "=SUM(B2:B3)"

 Dim c As Integer     '列
 Dim r As Integer     '行
  c=2:r=2
    Cells(r, c).Value = "5"
    Cells(r+1, c).Value = "10"
    Cells(r+2, c).Value = "=SUM(B2:B3)"

Sub 例258()
Dim moz1 As String
Dim moz2 As Integer
Dim moz3 As String
    moz1 = "ABCDEFGHIJKLMN": moz2 = 123: moz3 = "567"
----------------------------------------------------------------------------------- 

(1) 文字数 
    Cells(1, 1) = Len(moz1)      '文字数を求める。　        結果　A1：１４
-----------------------------------------------------------------------------------

(2) 文字列の取り出し
    Cells(2, 1) = Left(moz1, 4)   '文字列の左より取り出し。 結果　A2：ABCD
    Cells(3, 1) = Right(moz1, 4)  '文字列の右より取り出し。 結果　A3：KLMN
    Cells(4, 1) = Mid(moz1, 5, 4) '文字列の指定個所取り出し。 結果　A4：EFGH
    Cells(5, 1) = Mid(moz1, 5)    '文字列の指定個所取り出し。 結果　A5：EFGHIJKLMN
-----------------------------------------------------------------------------------

(3) 文字の位置
    Cells(6, 1) = InStr(3, moz1, "e", 1) '文字列より指定した文字の位置。 結果　A6：5
                                  '上記3は検索開始位置、1は大文字･小文字区別しない
-----------------------------------------------------------------------------------  

(4) 文字→数字、数字→文字                
    Cells(7, 1) = Str(moz2 + 111)   '引数の値を文字列に変換。結果　A7： 234(先頭は空白1ｺ)
    Cells(8, 1) = Val(moz3 & "111") '文字列を引数に変換。　　結果　A8：567111
-----------------------------------------------------------------------------------

(5) 小文字・大文字変換
    Cells(9, 1) = LCase("ABCD") 'アルファベットを小文字に変換。　　結果　A9：abcd
    Cells(10, 1) = UCase("abcd") 'アルファベットを大文字に変換。　結果　A9：ABCD
-----------------------------------------------------------------------------------

(6) Like演算子にパターン認識
    aa = Cells(9, 1) Like "*b*"
    	MsgBox aa                   'Like演算子でパターン認識        結果　aa：True
    bb = Cells(9, 1) Like "*B*"
    	MsgBox bb                   'Like演算子でパターン認識        結果　bb：False
    cc = Cells(9, 1) Like "b"
    	MsgBox bb                   'Like演算子でパターン認識        結果　cc: False

※　上記はセルのデ−タを識別しているが、変数に対しても同様
    dat="abcd"
　　ee = dat Like "*b*"
    	MsgBox ee                   'Like演算子でパターン認識        結果　ee：True
----------------------------------------------------------------------------------- 

(7) 文字列の比較
    Cells(12, 1) = StrComp(Cells(9, 1), Cells(10, 1), 0) '    　結果　A12：1
    Cells(13, 1) = StrComp(Cells(9, 1), Cells(10, 1), 1) '    　結果　A13：0
-----------------------------------------------------------------------------------

(8) 文字列の一部を指定
    Cells(14, 1) = moz1
    Cells(14, 1).Select
    ActiveCell.Characters(4, 3).Font.ColorIndex = 3 '結果 DEF　が赤になる
-----------------------------------------------------------------------------------

(9) 文字列の一部を置換え(Insert)
    Cells(15, 1) = moz1
    Cells(15, 1).Select
    ActiveCell.Characters(4, 3).Insert "aaa"     '結果ABCaaaGHIJKLMN
-----------------------------------------------------------------------------------

(10) 文字列の一部を置換え(Replace)
    Cells(16, 1) = moz1
    Cells(16, 1).Select
    ActiveCell.Replace "GHI", "bbb111"      '結果ABCDEFbbb111JKLMN
End Sub
-----------------------------------------------------------------------------------

(11) 文字列の置換え
Sub 例258b()
Cells(1, 1) = "ABCDCFGHIJ"
Cells(2, 1) = "FGHIJKLMNO"
  Range("A:A").Select
  Selection.Replace What:="FGH", Replacement:="aaa", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False
End Sub
結果："ABCDCFGHIJ"→"ABCDCaaaIJ"、"FGHIJKLMNO"→aaaIJKLMNO　
-----------------------------------------------------------------------------------

(12) 文字列の置換え(strconv)
Sub Macro1()
  Cells(1, 1) = strconv("abcd", 1)      '大文字に変換  （結果：ABCD）
  Cells(2, 1) = strconv("DEFG", 2)      '小文字に変換  （結果：defg）
  Cells(3, 1) = strconv("abcd", 3)      '先頭を大文字に変換 (結果：Abcd）
  Cells(4, 1) = strconv("defg", 4)      '半角を全角に変換  （結果：ｄｅｆｇ）
  Cells(5, 1) = strconv("ＡＢＣＤ", 8)   '全角を半角に変換  （結果：ABCD）
  Cells(6, 1) = strconv("あいうえ", 16)  '全角ひらがなをカタへ(結果：アイウエ）
  Cells(7, 1) = strconv("カキクケ", 32)  '全角カナをひらがなへ(結果：かきくけ）
End Sub
-----------------------------------------------------------------------------------

(13) 文字列の取り出し(Replace)
Sub Macro1()
Cells(12, 1) = "ABCDEFGHIJGKLMN"
Cells(12, 1).Replace "*D", "" '文字列の指定個所取り出し。 結果　A4：EFGH
Cells(12, 1).Replace "I*", ""

Cells(13, 1) = "ABCDEFGHIJGKLMN"
Cells(13, 1).Replace "*D", ""    '文字列の指定個所取り出し。 結果　A5：EFGHIJKLMN
End Sub

[1]先頭の空白を削除（結果は上記"A7"の先頭空白が無くなっている）
   aa=Mid(Str(moz2 + 111), 2)
又は
   aa = LTrim(Str(moz2 + 111))

文字列の検索等を行う場合は、上記処理を行わないと文字が一致しません。
参考：RTrim(string)→末尾の余分な空白を削除
　　　Trim(string)→先頭と末尾の余分な空白を削除
'-----------------------------------------------------------------------------------

[2]階層を簡単に付ける方法
Sub 例258k2()                          '結果
AAA = "ABCDE"                         '■ABCDE
  For i = 1 To 4                      ' ■ABCDE
   fs = String(i, "　")               '  ■ABCDE
    Cells(i, 1) = fs & "■" & AAA     '   ■ABCDE
  Next
End Sub
'-----------------------------------------------------------------------------------

[3]ビットチェック
下記は変数"nd"のビットをチェックしA〜Zに対応させたケース
Sub 例258k3()
 　For i = 0 To 26
      If nd And 2 ^ i Then
         MsgBox Chr(65 + i)
      End If
   Next
End Sub
'-----------------------------------------------------------------------------------

[4]文字コ−ドの制御
Sub 例258k4()
 MsgBox Hex(Asc("A"))　　'ASCコ−ド→41
 MsgBox Chr(&h41)　　　　'文字　　→A
 MsgBox Val("&h41")      '10進数　→65

 MsgBox Hex(Asc(Cells(1, 1)))   'セル"A1"1文字目のASCコ−ド取得
End Sub
'-----------------------------------------------------------------------------------

[5]配列のデ−タを若番順に並び替え
Sub 例258k5()
Dim dat(10) As Integer
'下記はデバッグ用数字入力
dat(1) = 3: dat(2) = 1: dat(3) = 8: dat(4) = 0: dat(5) = 9
dat(6) = 4: dat(7) = 2: dat(8) = 5: dat(9) = 6: dat(10) = 7

For j = 1 To 10
    For r = j + 1 To 10
      If dat(j) > dat(r) Then
         datm = dat(j)
         dat(j) = dat(r)
         dat(r) = datm
      End If
     Next
Next

MsgBox dat(1) & " " & dat(2) & " " & dat(3) & " " & dat(4) & " " & dat(5) _
& " " & dat(6) & " " & dat(7) & " " & dat(8) & " " & dat(9) & " " & dat(10)
End Sub
'-----------------------------------------------------------------------------------

[6]配列のデ−タを老番順に並び替え
Sub 例258k6()
Dim dat As Variant
'下記はデバッグ用数字入力
dat = Array(3, 1, 8, 0, 9, 4, 2, 5, 6, 7)
    
For j = 0 To 9
    For r = 9 To j Step -1
      If dat(j) < dat(r) Then
         datm = dat(j)
         dat(j) = dat(r)
         dat(r) = datm
      End If
     Next
Next

MsgBox dat(0) & " " & dat(1) & " " & dat(2) & " " & dat(3) & " " & dat(4) _
& " " & dat(5) & " " & dat(6) & " " & dat(7) & " " & dat(8) & " " & dat(9)
End Sub
'-----------------------------------------------------------------------------------

[7]配列のデ−タを後ろへずらした例
配列"i番"へ別なデ−タを入れる関係で、i以降を１個後ろへずらした
Sub 例258k7()
	For j = 49 To i Step -1
            f(1, j + 1) = f(1, j)
        Next
End Sub
'-----------------------------------------------------------------------------------

[8] 途中にあるブランクを詰めたケース
Sub 例258k8()
   For i = 1 To end1
      If dat2(i) = "" Then
         For j = i To end1
             dat2(j) = dat2(j + 1)
         Next
      End If
   Next
End Sub
'-----------------------------------------------------------------------------------

[9] 列のアルファベット入力を数字化
変数で使用する関係で数字に変換した例（アルファベット大文字・小文字OK）
Sub Macro1()
c2ur = Cells(1, 1)
If c2ur <> "" Then
   c2ura = UCase(c2ur)
   c2 = Asc(c2ura) - 64
   If c2 < 0 Or c2 > 26 Then
    MsgBox "列指定が不正です（A〜Z　or　a〜z を入力)"
    Exit Sub
   End If
End If
MsgBox c2ur & "　は数字の列では　" & c2
End Sub
'-----------------------------------------------------------------------------------

[10]　前にゼロを付け常に３桁にした例
Sub Macro1()
 Cells(1, 1).Select
    Selection.NumberFormatLocal = "@"
    ddd = Cells(1, 1)
    ddd = Right("00" & ddd, 3)
    Cells(1, 1) = ddd
End Sub
'-----------------------------------------------------------------------------------

[11]　セル内折り返しを解除した例
Sub Macro1()
If Cells(2, 3).WrapText = True Then
        Cells(2, 3).WrapText = False
        If InStr(1, Cells(2, 3), Chr(10), 1) > 0 Then
           Cells(2, 3).Replace Chr(10), ""
        End If
     End If
End Sub
・"WrapText = False"のみでは[Alt+Enter]で行なった分が解除できません。
'-----------------------------------------------------------------------------------

[12]　セル内文字を置換え戻した例
セル内のデータはReplaceで簡単に置き換えられるので、置換え後戻すアイディアもある。
uud1 = Cells(2, 3)
If InStr(1, uud1, "target", 1) > 0 Then
    Cells(2, 3).Select
     ActiveCell.Replace What:=" target=""*"">", Replacement:=">", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False
    uud2 = Cells(2, 3)
    Cells(2, 3) = uud1
End If
本例の結果（uud2が必要データ）：
uud1　→　<A HREF="http://excel-vba.hoops.ne.jp/" target="top">VBA便利帳</A>
uud2　→　<A HREF="http://excel-vba.hoops.ne.jp/">VBA便利帳</A>
'-----------------------------------------------------------------------------------

[13]　配列のデータを10列に記入例
Sub Macro1()
Dim ddd(100) As Integer

For i = 1 To 100
    c = (i - 1) Mod 10 + 1
    r = (i - 1) \ 10 + 1
    Cells(r, c) = ddd(i)
Next
End Sub

Sub Macro3()
For i = 2 To 9
     Cells(i, 3)=i
Next
End Sub

Sub Macro3()
For i = 2 To 9
   If i Mod 2 = 0 Then
      Cells(i, 18).Interior.ColorIndex = 3
   Else
      Cells(i, 18).Interior.ColorIndex = 4
   End If
Next
End Sub